home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / nshadow / trap.bas < prev    next >
BASIC Source File  |  1994-06-23  |  991b  |  30 lines
  1. 10 PRINT "LOADED DIPOLE ANTENNA. DETERMINATION OF LOADING COIL INDUCTANCE"
  2. 20 PRINT "FOR SINGLE BAND OPERATION AND (L C) VALUES OF TRAPS"
  3. 30 PRINT "FOR TWO BAND OPERATION."
  4. 40 INPUT "ENTER LOW BAND FREQUENCY (FL) IN MHZ"; FL
  5. 50 INPUT "ENTER OVERALL LENGTH (A) OF SHORTENED ANTENNA"; A
  6. 60 INPUT "ENTER HIGH BAND FREQUENCY (FH) IN MHZ"; FH
  7. 70 INPUT "ENTER WIRE DIAMETER (D) IN INCHES"; D
  8. 80 B=234/FH
  9. 90 PRINT B "LENGTH (B) FROM CENTER TO LOADING COIL OR TRAP."
  10. 100 C=671.13
  11. 110 W=24/D
  12. 120 Z=234/FL
  13. 130 X=(A/2)-B
  14. 140 Y=Z-B
  15. 150 G=W*Y
  16. 160 H=(Y^2)/(Z^2)
  17. 170 J=(X^2)/(Z^2)
  18. 180 K=W*X
  19. 190 M=LOG(G)
  20. 200 N=LOG(K)
  21. 210 LL=(10^6/(C*FL^2))*(((LOG(G)-1)*(H-1)/Y)-((LOG(K)-1)*(J-1)/X))
  22. 220 PRINT LL "INDUCTANCE (LL) IN UH FOR LOW BAND OPERATION."
  23. 230 P=(2*355*FH/113)^2
  24. 240 Q=(FL/FH)^2
  25. 250 LT=(1-Q)*LL
  26. 260 PRINT LT "INDUCTANCE (LT) IN UH OF TRAP FOR TWO BAND OPERATION."
  27. 270 CT=(10^6)/(LT*P)
  28. 280 PRINT CT "CAPACITOR (CT) OF TRAP IN PF."
  29. 290 PRINT "PREPARED BY K6WX FOR IBM PC."
  30.